1 REM THE GAME OF SCRAMBLE
2 REM BY BRIAN MELCHER
5 POKE53280,0:POKE53281,0:PRINT"[147]     [156][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
10 PRINT"     [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
15 PRINT"[158]                  [221]        "
20 PRINT"      [192][192]    [221]  [221]     [221]   [192][192]"
25 PRINT"         [192][192]  [192]   [167] [165]  [192]    "
30 PRINT"     [192][192]     [221]  [221] [167] [165] [221]   [192][192]"
35 PRINT"            [146][181]  [221] [167] [180]         "
40 PRINTSPC(10)"THE GAME OF SCRAMBLE"
45 PRINT"     [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
50 PRINT"     [156][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
55 DIML$(64),S(5):PRINTSPC(9)"[159]PRESS SPACE WHEN READY"
60 GETA$:IFA$<>" "THEN60
65 PRINT"[147][156]    [192][192][192][192][192][192][192][192]":PRINT"[159]    SCRAMBLE":PRINT"[156]    [192][192][192][192][192][192][192][192][158]"
70 PRINT"    HOW MANY PLAYERS (1-5)"
75 GETA$:IFA$<"1"ORA$>"5"THEN75
80 P=VAL(A$):PRINT"    HOW MANY CHANCES (1-5)"
85 GETA$:IFA$<"1"ORA$>"5"THEN85
90 C=VAL(A$):PRINT"    ENTER GRID SIZE (2-8)"
95 GETA$:IFA$<"2"ORA$>"8"THEN95
100 G=VAL(A$):FORM=1TO5:S(M)=999999:NEXT:B=1:IFG>4THENB=2:IFG=8THENB=3
105 FORH=1TOC:FORI=1TOP:J=0
110 FORM=1TOG*G:L$(M)=CHR$(INT(RND(0)*26)+65):NEXT:Z=0:GOSUB340:IFZ=1THEN110
115 PRINT"[147]"SPC(14);:FORM=1TOG:PRINT"[158]  "CHR$(64+M);:NEXT:PRINT" "
120 FORM=1TOG:PRINTSPC(14)"[158] [146][151]";:FORN=1TOG:PRINT"  [170]";:NEXT:PRINT
125 PRINTSPC(14)"[158]"CHR$(48+M);:FORN=1TOG:PRINT"[146][151]  [170]";:NEXT:PRINT
130 PRINTSPC(14)"[158] [146][151]";:FORN=1TOG:PRINT"[175][175][186]";:NEXT:IFM<GTHENPRINT
135 NEXT:PRINT"[159] PLAYER"I"UP":PRINT" TRIAL"H:PRINT" [156]BEST TIMES:"
140 FORM=1TOP:PRINT"  PLAYER"M"[157]:":PRINT"   "S(M):NEXT:PRINT""
145 GOSUB325:PRINT" [158]ENTER MOVE"
150 PRINT"            ";:E=1:U$="":V$="":W$="":X$=""
155 GETA$:IFA$=""THEN155
160 IFA$=CHR$(20)THEN150
165 IFA$="\"THENJ=999999:GOTO275
170 IFE=2THEN215
175 IFA$<"A"ORA$>CHR$(64+G)THEN190
180 IFU$<>""THEN155
185 U$=A$:GOTO205
190 IFA$<"1"ORA$>CHR$(48+G)THEN155
195 IFW$<>""THEN155
200 W$=A$
205 IFU$<>""ANDW$<>""THENE=2
210 GOTO250
215 IFA$<"A"ORA$>CHR$(64+G)THEN230
220 IFV$<>""THEN155
225 V$=A$:GOTO245
230 IFA$<"1"ORA$>CHR$(48+G)THEN155
235 IFX$<>""THEN155
240 X$=A$
245 IFV$<>""ANDX$<>""THENE=3
250 PRINTA$;:IFE<3THEN155
255 IFU$=V$ANDW$=X$THEN150
260 U=ASC(U$):V=ASC(V$):W=ASC(W$):X=ASC(X$):IFABS(U-V)>BORABS(W-X)>BTHEN150
265 Q=(U-64)+(W-49)*G:R=(V-64)+(X-49)*G:J=J+1:T$=L$(Q):L$(Q)=L$(R):L$(R)=T$
270 GOSUB325:Z=0:GOSUB340:IFZ=0THEN145
275 IFJ<S(I)THENS(I)=J
280 PRINT"[147][159]  THIS MATCH IS NOW OVER.":PRINT"[156]  PLAYER:"I,J"[156]MOVES."
285 PRINT"  PRESS SPACE"
290 GETA$:IFA$<>" "THEN290
295 NEXT:NEXT:PRINT"[147] [159]THE GAME IS NOW OVER.":PRINT" HERE ARE THE FINAL ";
300 PRINT"SCORES:":FORM=1TOP:PRINT"   [156]PLAYER"M"[157][156]:"S(M):NEXT
305 PRINT" WOULD YOU LIKE TO PLAY AGAIN (Y/N)?"
310 GETA$:IFA$="Y"THEN65
315 IFA$<>"N"THEN310
320 PRINT"[147][158]":END
325 PRINT"[129]":FORM=1TOG:PRINTTAB(14);:FORN=1TOG:PRINT""L$((M-1)*G+N);
330 NEXT:IFM<GTHENPRINT""
335 NEXT:RETURN
340 FORN=1TOG*G-1:IFL$(N)>L$(N+1)THENRETURN
345 NEXT:Z=1:RETURN